home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / xes120.lha / XES / REXX / LoadArray.xdme < prev    next >
Text File  |  1994-11-09  |  288b  |  18 lines
  1. /* LoadArray.xdme */
  2.  
  3. parse arg v file
  4.  
  5. file = strip(file)
  6. call open(input,file,"R")
  7. size = 0
  8. do forever
  9.     line = "(" || readln(input) || ")"
  10.     if eof(input) then leave
  11.     size = size + 1
  12.     xcom = "set" v || size line
  13.     xcom
  14. end
  15. xcom = "set" v || "0" size
  16. xcom
  17. call close(input)
  18.